home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / FATDIPOL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  3.4 KB  |  105 lines
  1. 10  'FATDIPOL - Fat Dipole - 17 NOV 95 rev. 27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF:COLOR 7,0,1
  4. 40  UL$=STRING$(80,205)
  5. 50  U1$="####.###"
  6. 60  U2$="####.## "
  7. 70  '
  8. 80  '.....start
  9. 90  CLS
  10. 100  COLOR 15,2
  11. 110  PRINT " FAT DIPOLE (Broadbanded)";
  12. 120  PRINT TAB(57);"by George Murphy VE3ERP ";
  13. 130  COLOR 1,0:PRINT STRING$(80,223);:COLOR 7,0
  14. 140  '
  15. 150  '.....standard antenna notes
  16. 160  OPEN "I",1,"\data\docfiles\antenna.doc
  17. 170  IF EOF(1)THEN 190
  18. 180  INPUT#1,Z$:PRINT TAB(3);Z$:GOTO 170
  19. 190  CLOSE
  20. 200  PRINT UL$;
  21. 210  '
  22. 220  'preface
  23. 230  T=8
  24. 240  PRINT TAB(T);
  25. 250  PRINT "Making a dipole conductor thicker than normal with respect to"
  26. 260  PRINT TAB(T);
  27. 270  PRINT "wavelength will increase the bandwidth and modify the working"
  28. 280  PRINT TAB(T);
  29. 290  PRINT "impedance of the antenna. The trick is to make a dipole 'fat' in"
  30. 300  PRINT TAB(T);
  31. 310  PRINT "such a way that it may easily be constructed from cheap materials,"
  32. 320  PRINT TAB(T);
  33. 330  PRINT "be highly efficient and at the same time arrange things so that it"
  34. 340  PRINT TAB(T);
  35. 350  PRINT "will match the transmission line from the lower band edge to the"
  36. 360  PRINT TAB(T);
  37. 370  PRINT "upper band edge."
  38. 380  PRINT UL$;
  39. 390  PRINT "  PRESS number in < > to:"
  40. 400  PRINT UL$;
  41. 410  PRINT "   < 1 >  RUN program"
  42. 420  PRINT "   < 0 >  EXIT"
  43. 430  Z$=INKEY$:
  44. 440  IF Z$="1"THEN 480
  45. 450  IF Z$="0"THEN CLS:RUN EX$
  46. 460  GOTO 430
  47. 470  '
  48. 480  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  49. 490  PRINT TAB(T);
  50. 500  PRINT "For a detailed discussion of the theory and construction of this"
  51. 510  PRINT TAB(T);
  52. 520  PRINT "type of antenna see the article 'FAT DIPOLES', by Robert C. Wilson,"
  53. 530  PRINT TAB(T);
  54. 540  PRINT "in The ARRL Antenna Compendium, Vol. 2, pages 106-107."
  55. 550  PRINT UL$;
  56. 560  '.....diagram
  57. 570  R=7:T=14
  58. 580  COLOR 0,7
  59. 590  LOCATE R+ 0,T:PRINT "                                                     "
  60. 600  LOCATE R+ 1,T:PRINT " CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL   "
  61. 610  LOCATE R+ 2,T:PRINT " CALL                    CALLDEFSNG A DEFDBLCALL                    CALL   "
  62. 620  LOCATE R+ 3,T:PRINT " /SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVE/---/BSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND/DEFSNGCOLOR "
  63. 630  LOCATE R+ 4,T:PRINT "                      BLOADSOUNDBSAVE/BSAVESOUND<0xB4!>                      A "
  64. 640  LOCATE R+ 5,T:PRINT " /SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTOR/CALL-CALL/MOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND/DEFSNG' "
  65. 650  LOCATE R+ 6,T:PRINT "                       VARPTRMOTORSOUNDMOTORCOLOR                         "
  66. 660  LOCATE R+ 7,T:PRINT "                       CALL1:1CALL Balun                   "
  67. 670  LOCATE R+ 8,T:PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR    CLSSOUNDSPC(SOUND'                         "
  68. 680  LOCATE R+ 9,T:PRINT " All wire #14 AWG CALL      OPEN 50 - Coax                 "
  69. 690  LOCATE R+10,T:PRINT "     (^1.6mm)     CALL                                  "
  70. 700  COLOR 7,0
  71. 710  PRINT UL$;
  72. 720  '
  73. 730  '.....calculate
  74. 740  INPUT " ENTER: Band of Operation Centre Frequency (MHz) ";F
  75. 750  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  76. 760  PRINT TAB(T);"Centre frequency of operation....";USING U1$;F;:PRINT " MHz"
  77. 770  L1=442.5/F:L2=L1*0.3048        'length
  78. 780  A1=11.25/F*12:A2=A1*0.0254       'wire spacing in inches
  79. 790  H1=112.5/F:IF H1<8 THEN H1=8  'height above ground
  80. 800  H2=H1*0.3048
  81. 810  B=F/7.52                'bandwidth
  82. 820  PRINT TAB(T);"Recommended minimum height.......";USING U2$;H1;
  83. 830  PRINT "feet   =";USING U1$;H2;:PRINT " metres"
  84. 840  PRINT TAB(T);"Length.........................L=";USING U2$;L1;
  85. 850  PRINT "feet   =";USING U1$;L2;:PRINT " metres"
  86. 860  PRINT TAB(T);"Wire spacing...................A=";USING U2$;A1;
  87. 870  PRINT "inches =";USING U1$;A2;:PRINT " metres"
  88. 880  PRINT TAB(T);"Bandwidth........................";USING U1$;B;:PRINT " MHz"
  89. 890  GOSUB 920
  90. 900  GOTO 80
  91. 910  '
  92. 920  'HARDCOPY
  93. 930  GOSUB 1040:LOCATE 25,2:COLOR 14,6
  94. 940  PRINT " Press 1 to print screen, 2 to print screen & ";
  95. 950  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  96. 960  Z$=INKEY$:IF Z$="3"THEN GOSUB 1040:RETURN
  97. 970  IF Z$="1"OR Z$="2"THEN GOSUB 1040:GOTO 990
  98. 980  GOTO 960
  99. 990  FOR QX=1 TO 24:FOR QY=1 TO 80
  100. 1000  LPRINT CHR$(SCREEN(QX,QY));
  101. 1010  NEXT QY:NEXT QX
  102. 1020  IF Z$="2"THEN LPRINT CHR$(12)
  103. 1030  GOTO 930
  104. 1040  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  105.